home *** CD-ROM | disk | FTP | other *** search
/ PC Home 109 / PC Home 109.iso / data1.cab / Program_Files / id001.dxr / 00035.ls < prev    next >
Encoding:
Text File  |  2001-03-02  |  840 b   |  40 lines
  1. on exitFrame
  2.   global cowboy1, cowboy2, cowboy3, cowboy4, cowboy5
  3.   lastbit2()
  4.   set section to random(5)
  5.   if (section = 1) and (cowboy1 = 1) then
  6.     startTimer()
  7.     go(the frame + 1)
  8.   else
  9.     if (section = 2) and (cowboy2 = 1) then
  10.       startTimer()
  11.       go(the frame + 2)
  12.     else
  13.       if (section = 3) and (cowboy3 = 1) then
  14.         startTimer()
  15.         go(the frame + 3)
  16.       else
  17.         if (section = 4) and (cowboy4 = 1) then
  18.           startTimer()
  19.           go(the frame + 4)
  20.         else
  21.           if (section = 5) and (cowboy5 = 1) then
  22.             startTimer()
  23.             go(the frame + 5)
  24.           end if
  25.         end if
  26.       end if
  27.     end if
  28.   end if
  29.   go(the frame)
  30. end
  31.  
  32. on mouseUp
  33.   repeat with n = 21 down to 1
  34.     set the visible of sprite n to 1
  35.     puppetSprite(n, 0)
  36.   end repeat
  37.   sound stop 1
  38.   go(10)
  39. end
  40.